home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.06.lha / AmiCAD / ARexx / SauverAuto.AmiCAD < prev    next >
Text File  |  2000-04-13  |  2KB  |  60 lines
  1. /* Sauvegarde automatique   Saint-James, 13 février 1994    Version 1.01 */
  2. /*                Saint-James,  4 juin    1994    Version 1.02 */
  3. /* Modification nom clip    Saint-James,  7 juillet 1994    Version 1.03 */
  4. /* Adaptation AmiTex:        Chez Corbin, 18 septembre 1997  Version 2.00 */
  5. /* Adaptation AmiCAD:        Chez Corbin, 22 Février 1998    Version 2.00 */
  6. /* Ajout traitement du nom si Innomé:      6 Février 1999    Version 2.01 */
  7. /* Adaptation MENU:        Chez Corbin, 22 Mai 1999        Version 2.02 */
  8. /* Adaptation Version 2.05  Chez Corbin, 13 Avril 2000        Version 2.03 */
  9. /* $VER: 2.032 (© R.Florac, 13/4/00) */
  10.  
  11. port = address()
  12. options results
  13. signal ON error     /* pour interrompre quand le programme quitte */
  14.  
  15. cr = '0a'x
  16.  
  17. sauver_auto=getclip(sauvegarde.port)
  18. if sauver_auto=1 then do        /* Version 1.02 */
  19.     a=setclip(sauvegarde.port,"")
  20.     'MESSAGE("Sauvegarde automatique"+CHR(10)+"interrompue.")'
  21.     exit
  22. end
  23.  
  24. if ~show('l', 'rexxsupport.library') then
  25. do
  26.     if ~addlib('rexxsupport.library',0,-30,0) then do
  27.     'MESSAGE("Installez rexxsupport.library"+CHR(10)+"dans votre répertoire libs: avant"+CHR(10)+"d''utiliser cette macro")'
  28.     exit    /* version 1.02 */
  29.     end
  30. end
  31.  
  32. a=setclip(sauvegarde.port,1)
  33. 'MESSAGE("Une sauvegarde automatique"+CHR(10)+"aura lieu toutes les deux"+CHR(10)+"minutes si le contenu de la"+CHR(10)+"fenêtre active a été modifié."+CHR(10)+"Sélectionnez à nouveau ce script"+CHR(10)+"pour arrêter son exécution.")'
  34.  
  35. do forever            /* Boucle infinie */
  36.     call delay(6000)            /* Délai de deux minutes */
  37.     if ~show(p, port) then goto error
  38.     sauver_auto = getclip(sauvegarde.port)
  39.     if sauver_auto=1 then do
  40.     'MODIF'                 /* Test si texte modifié */
  41.     if result=1 THEN do
  42.         'FILEPART("")'
  43.         if result="Innomé" then do      /* Version 2.01 */
  44.         'REQUEST("Attention le fichier"+CHR(10)+"n''a pas été nommé, sa"+CHR(10)+"sauvegarde est donc impossible"+CHR(10)+"voulez-vous le nommer?")'
  45.         if result<1 then exit
  46.         'MENU("Rename")'
  47.         'FILEPART("")'
  48.         if result="Innomé" then exit
  49.         end
  50.         'MENU("Save")'      /* Sauvegarde du texte */
  51.     end
  52.     end
  53.     else
  54.     exit
  55. end
  56.  
  57. error:
  58.     a=setclip(sauvegarde.port,"")
  59.     exit
  60.